From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 22 May 1993 18:23:31 +0000 (+0000)
Subject: (describe-key, describe-key-briefly):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96105
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5f296b78d2c4e666a69414095301243837e50c75;p=emacs.git

(describe-key, describe-key-briefly):
Discard the click or drag that follows a down event.
---

diff --git a/lisp/help.el b/lisp/help.el
index b832ffb6c75..1d3c16754f5 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -101,6 +101,14 @@
 (defun describe-key-briefly (key)
   "Print the name of the function KEY invokes.  KEY is a string."
   (interactive "kDescribe key briefly: ")
+  ;; If this key seq ends with a down event, discard the
+  ;; following click or drag event.  Otherwise that would
+  ;; erase the message.
+  (let ((type (aref key (1- (length key)))))
+    (if (listp type) (setq type (car type)))
+    (and (symbolp type)
+	 (memq 'down (event-modifiers type))
+	 (setq foo (read-event))))
   (let ((defn (key-binding key)))
     (if (or (null defn) (integerp defn))
         (message "%s is undefined" (key-description key))
@@ -127,6 +135,14 @@ If FUNCTION is nil, applies `message' to it, thus printing it."
 (defun describe-key (key)
   "Display documentation of the function invoked by KEY.  KEY is a string."
   (interactive "kDescribe key: ")
+  ;; If this key seq ends with a down event, discard the
+  ;; following click or drag event.  Otherwise that would
+  ;; erase the message.
+  (let ((type (aref key (1- (length key)))))
+    (if (listp type) (setq type (car type)))
+    (and (symbolp type)
+	 (memq 'down (event-modifiers type))
+	 (read-event)))
   (let ((defn (key-binding key)))
     (if (or (null defn) (integerp defn))
         (message "%s is undefined" (key-description key))